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3310 Clover Drive S.W. 
edar Rapids, lowa 52404 


First the explaination. When I first gat into the disk system an my TS 
2068 I ordered my interface from Larken the first week af November of 1988 
and I then ordered a pair cf 80 track DS OD 5 1/4 TANDON full height drives 
From RMG with the assumption that the quad drives would read and LOAD ¿Q 
track files. I ordered a dual drive case ard power supply from the editor of 
CATS that he had cffered for sale. I had the drives and case for a long time 
before the disk interface came ir the latter part cf January 1989 ard I 
learned that the quad drives while some could use them te read and lead 42 
track would nat do sa for me. Sa I ordered a 5 1/4 4Q track full height 
drive and case ard power supply from RMG ard wher they came I got involved 
with using a disk system. I ended up with the single drive sitting on top cf 
the dual drives and all three could be used. . 

Ther at Collins Radic Inventory Disposal Store I saw disk drives for 
sale, $140.90 for what maybe good drives and $5.00 for ones tagged with 
defects. I bought & that day that were TANDON TM-1a@-2A DS DD 5 1/4 40 track 
and had three working drives and three that gave errors on trying te read 
the directory. But in the process af testing the drives I had the power 
supply for the single drive case πα cut. Also the 40 track drive and 8a 
track drive ir the dual case wouldn’t work. After a lat af fretting and Е 
trying I got the 89 track drive cut that I had taker cut cf the single drive 
case ta use їс test the drives and got my disk system up and going. I 
thought that there was something wrong with the two drives I had bought from 
RPG. I could not figure out what had happened ta the power supply so I 
stored it away. 

Ther later at the Collins Inventory disposal Store I eyed a bunch of 
drives and picked cut six and got a firm price of $20. for the lot. All had 
tags on them. Ard some had parts missing which I figured I ceuld swap around 
since all including the prior six were TANDON ΤΗ- 1238 DS DD 5 1/4 ай track 
drives. I did manage te sneak them into the house and get them hid before 
Masakc, my wife, saw them. I bought them with the idea of having spare parts 
and also of combining some te make a complete working drive. I alse received 
in the mail information in the form af most of the TANDON manual and part of 
an IRM repair manual since the drives I had gotten at the Collins Store were 
all cout of IBM computers that were surplus when they went to hard disk. 

I Then recently I was at the Collins Store and there were parts and 
pieces cf 3 more drives which I invested ($3.50) in for a couple cf spare 
doors which a couple cf the other drives had either a broken one or else was 
completely missing. Ard again I snuck im the drives but my wife has been on 
me about Cleaning up the basement so I had te whittle away at my horde af 
stuff to make it look like it was less cr at least the amount I threw away 
could be seen. ` I 

I tried to use the dual disk drive case to test the drives but it was 
toco awkward ard I couldr't easily de it. So back ta the single drive case 
with the bad pcwer supply. Luckily it was a power supply that used 78XX 
regulators. I checked the bridge rectifier ard it seemed ta be O. M. When I 
reversed the leads cm the cutput on the A. C. range of the mulltitester one 
way read na voltage while the cther had an acceptable voltage. So I wert ta 
the power supply plug to the disk drive and got B volts on the 12 volt pins 
and -Ἑ volts on the +5 volt pins. I called сте of the group and he talked 
abcut oscillation and wher I checked I could find ne А. C. απ the eutput sa 
I was puzzled. Then at the Collins Store last Tuesday I saw Gary (ne is a 
test technician) and I asked him. He said it sounded like something was 
wrorg with the negative side of the power supply. He would start at the 
transformer and work to the disk drive plug in connector locking for cracks 
in the board, bad solder etc and if he didn’t see anything then he would use 
Jumpers ard cover every bit of lead till be found it. 

Using his advice I found that the solder joints con the bridne rectifier 
looked shaky, two legs had the solder wicked up the legs like a good solder 
Joint but two had the solder repelled-by the legs of the bridge. One was an 
A. C. input and the other was the negative output. After I resaldered the 
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Joints the voltages changed. The 12 volts was 15 volts but the 5 volts was 
a trifle was then 3 volts. The power supply had 4 regulators on it two 7805 
and two 7812 and from that I concluded that the 78055 had quit. A disk drive 
plugged irto the power supply only would run as soon as the power supply was 
turned on. 

The little circuit board was mounted by the top cf the bridge against 
the end cf the drive case and the four regulators in a row bolted dawn ta 
the bottom of the case. The 7805 regulators were in the center of the four 


sc І made a spacer out of plastic to bolt the regulators ёс to maintain the 
spacing while scoldering. I used as little heat as possible tc net the bad 
ones out and cleaned out the holes with a fine drill in a pin vise, mounted 
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the regulators and soldered them in. Power up gave me іг volts р. C. and 5 
volts D. C. and a drive plugged in did not run on turn on. 

I made up a single drive interface cable and Plugged the drive in and 
I had to turn the connector aver tea get it to run right but ch bay! the 
drive acted up just like it did cen the дссс power supply. But a working 
drive furcticned beautifully on the tryout. Ncw I had the single drive power 
supply working. Ard it was ideal fer testing drives because with the cover 
off the case it left a sheet cf metal with the power supply cri the back end. 
And that meant I could easily access the drives to make adjustments. | 

The first thing I did was check and reset the speed of the drive motor. 
For that you will need a flucrescent light and a small bladed screwdriver te 
turn the adjustment screw in the potentiometer on the board en the end af 
the drive and you will need a jumper, a piece cf insulated wire with a flea 
Clip от each end to ос between the square pins an the top beard. With the 
disk drive on the table top side up and the drive insertation door facing 
you, you will find a square pin located just to the right cef the left hand 
board mcuritirip screw by 5/16 af an inch and about a 1/16 of an inch closer 
to you than the screw and labeled TP1? with the letters upside down. Fasten 
сме end cf the flea wire with the flea clip to the square pir. Up at the 
ether end of the beard is a row of connectors and the ene labeled 11 will be 
directly in line with the square pin TP13 which is 5/8 irch this side of the 
connecter. Fasten the other end ef the wire using the flea clip te that 
square pir. The purpose cf the wire is to cause the disk drive motor to turn 
cn when you turn on the power. Speed is best set with a disk in the drive. 

I set the speed before I cornected the interface cable ta the drive. Now 
with the drive power card plugged inte the disk drive turn the disk drive on 
its side to expose the flywheel cf the disk spindle with the paper and the 
bars printed aon it exposed ta the flucrescent light arid watch the cuter ring 
(62 cycle) and if the bars are seeming to go either clockwise or 
Counterclockwise then turn the screw in the end of the peternticmetenr an the 
back board (the moter drive board). The bars may waver but unless there is 

a definite movement in either direction the drive speed is correct. Ore ward 
cf caution ** IF THERE IS NO TERMINATOR RESISTOR IN THE SOCKET LOCATED 
BETWEEN THE TWO I. C. S IN LINE LEFT TO RIGHT WITH TP13 МОТ ONLY WILL IT BE 
IMPOSSIBLE TO SET SPEED BUT ALSO IMPOSSIBLE TO SET THE TRACKING Ἐκ. I had a 
drive that just seemed ta want ta vary the speed and alsa would nat take a 
track adjustment until I realized that the resistor was missing. A word af 
Caution, it might be safer to wrap masking tape on the screw drive blade ta 
insulate it. When the speed checks right remove the jumper between ТР1@ and 
TP13. 

To reset the track if the drive will not read track à (the directory cf 
files) you will need a larger screw driver (insulate with tape the blade and 
shaft) and an allen wrench size .109 or 7/64 of an inch. Turn the drive aver 
and you will see down near the disk flywheel a pair af allen screws which 
are sealed on the side with green sealing material. Loosen the two screws 
and turn the drive back right side up and en.the back af the drive above the 
disk motor beard is a metal projection that has a slotted screw head ir an 
cbienn opening and with the drive Gece facing you the-slatted screw will be 
on the right side cf the metal prejection. To the lef* and slightly towards 


R 


# 


you is another aller headed screw alse with the green goop on the side cf 
the head. Looser that screw and test with the screw driver to see if the 
turning the screw moves the metal a trifle. The screw only has about a 180 
degree adjustment. I had the best luck adjusting by turning the screw to the 
most counterclockwise positicen. The reascr te insulate the screwdriver is ta 
prevent touching the bare pins that stick cut above the adjusting screw. Now 
with the interface cable plugged in and the drive power supply plugged in 
select a disk SAVEd con a goed drive (be sure te use a сору in case somethirin 
happens to the disk) and first try to CAT the disk (I was using a TS габа 
and a Larken interface) when you get arı error watch the metal slide and just 
turn the screw encougn clockwise so that you see it barely more. Then ance 
more retry the CAT and repeat till suddenly the entire directory is listed 
as it should. I usually made оме aor two very slight more adjustments and 
then tried to LOAD a file om the first of the direcrery and then one on the 
last of the directory. If both had LOADed cen a good drive and they LOAD an 
this one then power осип and tighten the three allen screws and then retry 
the Сат and the first program and the last program. If they LOAD you have it 
reset. With the Larken and the TS 20683 an failure ta CAT you will get a CRC 
error and then garbage for the directory. Then as you get close ta the track 
with the adjustments you might see cre or twa of the first files named then 
garbage, then suddenly all files appear. While the drives are rather 
mysterious (teo me) in how they work it is rather more mechanical ta make the 
adjustments. Df course other defects are handled differerntiy. 

I have one drive in which the track @ switch is off. What is does is 
give a series of thunking scunds as it tries to read track @ ard I have 
clues tc how ta reset it. I will try it maybe I will have ancther дссс 
drive. i ас have спе drive with a bad head cr else the head is cenrnected 
wrong, but tc all practical purposes it is a SS DD 44 track drive. 

When I started this repair/adjusting sequence I had a total cf 18 
drives (some with parts missing) and now I have the criginal 3 I bought fram 
КМБ that are working plus 5 more working drives plus 1 working drive ама 1 
drive that wouldn't CAT that I sent to Tony in Australia for his Larter, ZX81 
far spares. find 6 drives that do rot work, some have parts missing. 1 drive 
has beer, tossed in the cut going trash (it had most parts missing). The 
easiest fix was the replacement cf the disk door which was missing on cone 
drive and broken on another drive. But that means some af the none working 
drives are daorless. The drive that is SS DD was ane of several that had the 
top head missing. I tried їс move a head from a different drive but either 
it was a bad head (I suspect that since it will nct FORMAT a disk or read a 
disk or сте head that it is a bad head) or else the head is not properly 
aligned in the track like the ether head is. There was a time I would have 
bought а SS DD 5 1/4 drive but row I am not sure I would want to keep this 
drive. At present it is set up in the single drive case and power supply. 
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PROGRAMMING TIP FOR OCTOBER: 
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SPECTRUM 


Do you have a Pro9ram that Ruto runs and is in machine code ic Ы 
BREAK it 7 Here's a way to stop Ruto-run. In the immediate mode epe Chics š 
SAVE CHRE USR SIZ" m =.rn e> '* 

This will first LORD the named Program and then immediately start to SRVE. 

Press BRERK at that Point. This stops the SAVE and allows you tosee how the Pro- 
Oran Gets into machine code. Here із hou it works: USR 832 calls the ROM LORD 
subroutine and the tuo quotes hold the Program пате. νου can also буре *" with 
no Program named After LORDín9 the USR call RETurns to BRSIC to finish the line, 
evaluating to zero. CHR$ changes the zero into a string. The line then reads: 


SRVE " " CCHR$ of © Ís a sPaceJ and the computer SAVES the Program, 


| э 


Thanks to SYNTAX for this Prooramming9 tiP. 
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AUDIO TRASFORMER LOAD AID 
Article by Denald S. Lambert 
5519 Cleaver Drive S. W. 
Cedar Rapids, IA 52404 Please send SASE. 

Se you got that new software and just can’t wait ta LOAD it but try as 
you might it dees not LOAD. Αγιά when you listen ta it you think it scunds D. 
И. but the program just will net LOAD. So you mutter about the unreliable 
cassette system and give up. But you have tried everything to try to LORD 
the progran. Prd would try mast anything te LOAD it. I кисы the feeling, I 
had 9 cassettes of software from various users groups that all I ceuld get 
{с LOAD was maybe ore program from each cassette if that much. find then I 
read a line of information in a publication of Bill Harmer of Ottawa. 

The following appeared in "Tips, Tricks And Techniques Of The User 
Group Masters For the Sinclair ZX-Bi/Timex TS1020" VERSION @.14 by Hill 
Harmer, Ottawa.--- An audio output transformer may be used between the 
cassette on pley and the computer with the 8 ohm side ta the ext. speaker 
and the high-Z side to the computer (Radic Shack Part No. 273-1390 (less 
than $2.00), the 8 ohm side has & leads the ether three). This has been 
recommended for the use with the TS2268 in baulky LOADing or upLDADing of 
ZX-81 preprams. 

Locking through my box af transformers I found a 5010: chm teo a 106029 chm 
transformer ard hacked it up sort ef breadbeard fashion and tried one of the 
nonLOADing cassettes and one program after another LOBDed successfully. 
However a few did not LOAD and it was obvious that there was not enough 
cutput te be a successfull LOAD. Abcut that time I was looking for a 15 voit 
A. C. transformer and remembered an ald transistor radia that was aiso a 110 
volt А. C. model only and so I got it out of the junk bax and the 
transformer I remembered was ап audic transformer with one side going te an 
B chm speaker so it was 8 chms om ong side and I would guess 1@@й ohms cr 
close te that on the other. Апа physically it is considerably larger in size 
than tne Radic Shack one so I tried it. The output was several levels higher 
than an the 500 to 1200 audio transformer. I was using а LOAD AID (see 
newsletter CRAGIST March/April #3 for construction article) but tne meter 
was not calibrated in volts. Reading in the TS 2968 Technical manual I see 
the TSZ268 looks for a voltage of -2.0 to +5 volts on the ERR input jack. 
With a peak allowed voltage of +5.@. Now I needed їс calibrate the LOAD AID 
sa that full scale was +5. volts. 

With the LOAD Aid in the circuit and alsa an R. C. meter accress the 
input te the EAR I played a tape (not plugged into the computer) until I not 
approximately full scale reading an the LUAD AID while the A. C. meter 
recorded S volts. Afterwards I realized that I could have used a 6.3 volt 
transformer and put a petentiometer in the circuit ard adjusted the pot ta 
give 5 volts P. C. and then by trying different resistor combinations got 
the LOAD AID te give full scale reading. With that combination I gct the 
Follewing data. I have not tried this signal booster cn the ZX81 but it 
sheuld work and while the TS $2268 seems ta like the higher output the ZX81 
has an upper limit where increased signal strength will cause a LOAD 
default. Also nate that the tape that I used was a tape that would normally 
LOAD without any signal enhencement so a poorer quality tape will possibly 
have a lower cutput. 

Also I have learned that a marginal tape will LOAD cv, one day and nat 
another, part could be the problem of the cassette routine being bothered by 
the warming up ef the chips and part by a fluctuating nouse currents. I 
suspect the former has more bearing on the case. I was LOADing the tapes 
that would rot LOAD riermally with the tape player with the volume set at 10 
but with the volume set at 4 and using the transformerthe programs LORDed. 
And that leaves considerable margin sa the nen-LOADing programs still may 
LGAD if I try again. Needless їс say4I,rcw have a lot of new ta me software 
tco work with. 

Ir actual practice I found that I got the majority of the programs to 
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LOAD but I had to use the maximum of 5 volts A. C. te de that. I am quite 


pleased at the success rate and ance LOADed I 


immediately SAVEd to Larkewn. 


disk. Now the pregrams are easily accessible. 
FENE E E E RE JEJEJE FE KE FE JE HE HE FE PE HEE ME FE JE E JE FEIE ME PE JE JE FE PE FE FE JE NE REE FE FE JE E AEE HEE E FEIE EE EE EE 
VOLUME ! LOAD ! TRANS- ! PROGRAM ! COMMENTS 
SETTING ! RID ' FORMER ! LOADED |! 
TAPE ! READING ! USED ! Y/N Ч 
PLAYER ! 5й IS | Y/N 3 ! . 
LS VOLTS 1 : : 
! А. C. ! L l 
з.е ! @ ! N 5N 
3.0 ! 8-— 11 moy, ‘oN ' READ HEADER 
ia G τ @ ' N 1 N l ΧΧΧ ΧΧΧ ΧΧΧ HK KK E ¥ E ¥ KE 
Όρο, EES AY 1 Ὕ ! ж !-CASSETTE FLAYER-! 
—————————————————————————————————————---—X t Ц 
4.0 ' @ LN N tox d 8 OHM ! 
4.0 ! 14 — 17 ! Y tF < Mr SE NR x. í "E 
карл ит ирк ыа: казр ی چے چ ھی‎ Deu چ کے ج‎ sep saa SS x ο το ο € τ} 
4.5 ! Q ΓΝ ! N J decimum SSeS SaaS SSS 
4.5 ! 15 - fa ! Y ¥ رچ ت بج‎ n mee ج ع ی مک ےید کا‎ 
——— — "yh — —À — ee — — — —À — — —À — — — — — —À --' —À — ——— — * _ = = " 
s.a τ: ! N ! N δν X p ο НР, 
сый ot 18 c t ү po E Ч ! 
Se SSS SSS See аы κ SSS Se SSS ааа аа ыыы: x: 1@@@ OHM l 
Sed. XM IN ΓΝ τ. deese МЕТЕК====== ! 
u.o t. ca - ce ү кү i owe ! 
aie eae Sa d E EE * !---COMPUTER EAR--! 
6.0 ' à ' N ON LE HH HK KEKE COE CC ЭЕ ЭЕ KK EH HE 
6.40 1&3 — 87.4 Y кү ! 
6.5 ! a “М ! N ! 
5.59. ο = SS сү ny ! 
7.0 5 ! N ! N ! READ HEADER 
7.08 1 335 - 40 ! Y tsay Е 
7.5 ! 7 — 10. ! N DM ! 
7.5 ! 46 -Sa+ ! Y ¥ ! EXCEEDS 5 VOLTS! 
8.0. TA = 17 t N T d 1 
Θα ub Oe αν αν Γκ ο ΜΙΝΑ TRIED 
60.5 ! 18 - 5 ! N bY ! 
Θ ο ії Ей — 23 EN кш, ! 
9.5 ! Ей = 24 ! N Ley. ! 
12.0 га — 24 ! N |o Y ! 


Jc % JC 9€ € X 3€ XC 3€ JC 3€ ЗЕ € € 9€ € 3€ X ЗЕ € 3€ € € 9€ € ЭЕ ЗЕ 9€ € ЭЕ € Je JC € 3€ € € ЗЕ C 3€ 9€ € 9€ € 3€ € 3€ 9€ 9€ 9 3€ 3€ 9€ 9€ € 


This is almost self explanatory but for these that dor't have any 
electronic experience I can explain a little. I will admit that I am not a 
guru so I could make grass errors in my explanation. Sc beware! If γαι are 
not sure seek cut somecre more knowledgeable or write to me with your 
guesticrs. 

If you have an audic transformer and wonder if it is about the right 
value and have a multimeter ycu v 11 find the 8 ohm windings will have very 


Б] | 


low resistance like . 54 ohm to Ξ er 3 chms and the 1@@@ chm side will be cf 
the order cf about 66 chms. Note most audio transformers are rated at their 
resistance (impedierce) at a specified frequency such as 1999 hertz. The law 
resistance windings go to the tape player and the higher resistance windings 
ga ta the computer. If there are more then four connections then the 
windings are center tapped ard you will use the highest resistance readings 
for the connections. N 

The only reason for connecting a meter across the cutput is to make 
sure that you do not input over 5 volts into the computer. Over five volts 
cr either the ZXB1 or the TS 2068 could zap the SCLD aor the ULA chip. Any 
meter that is sensitive enough їс read fuli scale on 5 volts can be used. 
You will need an A. C. meter but a D. C. meter cari be made irto an А. С. 
meter by cennecting a diode (any of the 1М%@й@й series would be ideal) in 
series (if the meter trys to read t= the left ar down scale reverse the 
dicde) t= rectify the АС to DC and if the meter reads off scale put 
resisters in series with the diode and the meter. І am using a 58 
micrceampere meter which is very sensitive and requires a lot of resistance 
teo pet five volts full scale. Or you could put Jacks en the case cf the 
transformer signal booster ard use a multimeter set to the five volt or near 
five volt А C range. I just happened to have the meter in my LOAD AID sc I 
recalibrated it їс give 5 volts A C full scale. 

I did buy a Radic Shack 273-1380 audio transformer (8 chm to 1@@й chms) 
anc make up arcther transformer aid and the results are so clase ta the 
prior chart that the transformer I used must have been an 8 chm to 1@@@ ohm 
сте. However, in physical size the Radio Shack version is very much smaller. 
I may use tne Radio Shack transformer in a circuit ta make an electronic 
signal booster that Fred Nachbaur designed. The transformer I have is nat 
center tapped but the Radic Shack ere is and the circuit calls for a center 


tapped model. 
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MS September 188: 


1999 REM ** CRASH «* 


2000 PRINT AT 16,14;" " 
2010 INK 5: OVER 1: PRINT AT 17 
114; ("GH" AND dz1)*("IJ" AND d=- 


1) 

2020 OVER O: FOR n-30 TO O STEP 
-1: BEEP .005,n: BEEP .005,n-21 
NEXT n 

2030 LET n=13 

2035 FOR o-1 TO 4 

2040 BEEP .05,-20: FOR m-16 TO 1 


4 STEP -1 

2050 PRINT AT m,n;"K"; AT m,29- 
пук" 

2065 FOR g=1 TO 20: NEXT η B 

2070 PRINT АТ m,n3" "; AT m,29- 

nit 

2075 LET n=n-1: NEXT m: NEXT o 

2080 LET 121-3: PRINT AT 0,1;" 

2085 INK 7 

2090 IF 1225 THEN GO TO 100 


2999 REM κ. GAME OVER κκ 
3000 PRINT AT 5,10; FLASH 1;"GA 
ME OVER": PRINT AT 10,1;"FRESS 
ANY KEY TO PLAY AGAIN": PAUSE О: 
PAUSE О: GO TO 10 
3999 REM κκ METEOR CRASH ++ 
4000 FOR n=1 TO 20: PRINT AT a, 
14;"NN": BEEP .002,-п+50: BEEP . 
002,-п+50: PRINT AT a,14;btf: BE 
EF .001,40: BEEP .001,40: NEXT n 
4010 OVER 1: INK INT ( RND #6) + 


2: PLOT 115,65: DRAW 10,10,4044 
4015 INK 7: DVER О 
4016 PRINT AT 12,12;" "s АТ 
р“ your buggy over the surface of the moon. Collect as many А A Edi in Et id 
А * К E 0 =30 » STE -1: Ρ 
jewels as possible by running them over. Avoid the craters by 2001 tnr NEXT. ê BEE 
jumping over them, and avoid flying meteors by remaining at ground level | 4030 Go To 2080 
5000 STOP 
verh 
as they pass overhead. 7999 REM жж INSTRUCTIONS ++ 
Moon Buggy was written for the Spectrum or Spectrum Plus | вооо PRINT AT 0,10; INK 1; PAPE 


1 REM MOON BUGGY 
2 REM BY NEIL COOFER 7/3/84 
= INK 7: FAFER O: BORDER О: С 
: GO SUB 8000 
10 LET z=0: CLS : 
LET 1-232: LET s=0 
ТО PRINT AT O,0:"SCORE:":s:.A 
T 0,16; "BUGGY: АБ AB AB" 
SO REM ** DRAW SCREEN κκ 
100 LET b$-"AB": LET a-16 
105 €OR n=1 TO 21: FRINT AT n, 
O; FAPER O;,,: NEXT n: FOR n=1 T 
О 50: PLOT INK δ: RND #255, RND 
+150: NEXT n: LET d=1: LET c=0 


LET c$-"ML": 


110 LET a$-"EEEEEEEEEEEEELEEEEE 
EEEEFFFFEEEEEEEEEFFEEEEEEEEEEEEL 
FFEEEEEEEEEEEFFEEEEEEFFEEEEEEFFF 
EEEEEEEEEEFFEEEEEELEEEEEEEEELEEE. 
EEEEEEEEFFEEEEEEEEEEELEEFEEEEEEE 


ΓΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΙ ΕΕΕΕΕΕΕΕΕΕ 


ΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕΕ, _ 
EEEEFFEEEEEEEEEEEEEEEEEEFFEEEEEE 
EEEEEELEEEEEFFFEEEEEEEFFFFEEEEEL 
EEEEEEELEEEEEEEELEEEEEEELEEEEEEE 
EFFFFEEEEEEEEEEEELEEEEEFFFEEEEEL 


EEEEEEEEEELEEEEEEEEFFFFEEFFFFEEE 


EEEEEEFFEEEEEEEEEFFFFEEEEEEEEEF F 


FFEEEEELEEEEEEEFFEEEEEEEEELEEEEE 
EEEEFFEEEEEEEELEEEEEEEFFFEEEEEEL 2 


EELEEEEEEEEEEEEEFFFFEEEEEEEEFFFE 
` EEEEEEEELEEEE" 
120 LET с=0: LET dz1 
200 PRINT АТ O,0;"SCORE:";s: F 
OR n=17 TO 21: PRINT AT n,0; IN 
κ 33“(S28isp)": NEXT n 
250 REM ** MAIN LOOF 4. 
300 IF d=-1 THEN LET a$-as$( LE 
N a$)*a$( TO ( LEN af-1)) 
301 IF d=1 THEN LET a$-a$(2 TO 
)*a$(1) 


INK 2:a$( T 


702 PRINT AT 17,0; 
0 322) 

310 PRINT AT 13,z:" “3 INK 6:" 
М": INK 23"L"3 AT a,14: INK $ib£ 


520 IF INKEY$ ="1" THEN LET d 
=-1: LET bs="CD" 

30 IF INKEYS -"2" THEN LET d 
=1: LET b£-"AB" 
340 PRINT AT 16,14: INK 5155 
341 IF at(15)="F" AND ΔΦ(16)Ξ"Ε 


" THEN GO TO 2000 


346 IF af(15)="L" THEN LET as( 
15)="F": LET s=s+i: PRINT AT O, 
“4:5: BEEF .05,10: LET c=c+1: GO 
TO 350 

247 IF a¥(16)="L" THEN LET así 
16)="F": LET s-s*1: FRINT AT O, 
6:s: BEEF .05,10: LET c=c+1 

350 IF ΙΝΚΕΥΣ ="0" THEN GO SU 
B 1000 


360 BEEP .01,-15: IF c=21 THEN 
FOR k=1 TO 50: BEEP .001,50: LE 


T s=s+i: PRINT AT 0,63s: NEXT К 
: GO TO 100 
365 LET z=z+1: IF z=29 THEN РК 


INT AT 13,z3" τα 
370 GO TO 300 

999 REM w* JUMP ++ 
1000 FOR n=-1.5 TO 1.5 STEP «5 


LET 2=0 


1010 LET z=z+1: IF d-1 THEN LET 

a$-a$(2 TO )*a£(1) 

1011 IF d=-1 THEN LET a$-a$( LE 

М a$)*a$( TO ( LEN a$-1)) 

1015 PRINT AT 17,0; INK 3;a$( T 
32) 

1016 PRINT AT 13,23" "; INK 63" 

M"; INK 2;"L": IF (2515 OR 514) 

"AND a=13 THEN GO TO 4000 

1017 IF z-29 THEN PRINT 

LET z=0 

1020 PRINT AT a,14;" ^": LET a= 

a*n: PRINT AT a,14; INK 5;b$ 

1050 ВЕЕР .009,^» NEXT n 

1040 ΙΕ (as(15)= ОК as (16) ="F 

") AND а=16 THEN” GO TO 2000 

1045 IF z=29 THEN PRINT AT 13, 

LET z=0 

1050 RETURN 


18. 


AT 13, 


στ Ms 


23" “8 


R 5; FLASH 1; "MOON BUGGY" 

8010 PRINT '"The object of the g 
ame is to drive your moon bug 
gy over the surface of the moon 
avoiding the meteors and the 
craters. You must collect th 
e precious stones by running o 
ver them. 1f you run over one 


it will leave a crater in i 
t's place." 
8020 PRINT '"CONTROLS:-"''" 


1......0 LEFT 
2......... «RIGHT 
Ow ec eee eee , JUMP" 
8030 PRINT AT 21,3;"PRESS ANY K 
EY TO PLAY“: PAUSE O: CLS 
8999 REM ** DEFINE UDGs ** 
9000 RESTORE 9000: FOR п= USR "a 
" ТО USR "n"*7: READ a: POKE n, 
a: NEXT n: RETURN 
9020 DATA 0,15,63,127,255,2 
,48 
9040 рата 0,192,48,50,255,255,72 
48 
9060 DATA 0,3,12,60,255,255,18,1 
2 
9080 DATA 0,240,2 
18,12 
9100 DATA 0,137,155,255,25 
255,255 
9120 DATA 0,0,0,0,18,154,255,255 


255,72 


2,254,255,255, 


5,255, 


9140 DATA 0,15,63,127,255,255,0, 
ο 
9160 DATA 0,192,48,60,255 
ο 
9180 DATA 0,3,12,60,255,255,0,0 


‚255,0, 


200 DATA 0,240,252,254,255,255, 
0,0 

9220 рата 0,0,24,36,36,24,0,0 
9240 DATA 0,56,126,94,118,124,24 
«Ὁ 

9260 DATA 


0,3,61,119,219,55,7,0 


9280 DATA 


9999 CLEAR : 
INE 1 


129,8,22,4,80,4,15,0,9 
SavE "MOON BUGGY" L 


‘Each, 
pouch as rockfalls;' rolling snowballs, 


‘snowmen, crevasses: and ` crum- 4 


“entered in gra 


ема ъд 


Wu. 


1 LET hi=0: 
10 GO SUB 9000: 
25 CLS : 
O SUB 9500 
40 LET b$=b$(2)+b$(1): LET t-t 
—(t>O): PRINT AT 15,12; FAFER О 
3 INK 5; BRIGHT 1;t;" ": BEEP .O 
1,-10: GO SUB 1000+(s#100): LET 
b=b+( ΙΝΚΕΥΦ -"p")-( INKEYS -"o" 
AND b): IF INKEYS ="P" THEN L 
ET q-1: IF b<29 THEN GO SUB 400 
ο 
75 IF. INKEYS ="D" THEN LET q 
=-1: IF b>2 THEN GO SUB 4000 
BO PRINT AT a,b;bs(1) 

90 IF b >= 31 THEN LET s=s+1: 
FOR #=1 TO SO: OUT 254,59: OUT 
254,200: NEXT 4: LET b=O: LET ες 

=sc+t+100: LET t-100: GO TO 25 


LET п=5000 
GO SUB 9050 
GO SUB 8000+(s#10): G 


100 GO TO 40 
1100 LET a$=at(193 ΤΟ 224) +а$(1 
ΤΟ 32)+a$(33 ТО 64) +а$(65 TO 96) 
*a$(97 TO 128)*a$(129 TO 160) «44 
(161 TO 192) 
1110 PRINT AT 0,03 INK O:as: IF 
a$(193+b) <> " " THEN GO TO n 


1130 RETURN 

1200 LET a$-a$(2 TO 32)*a$(1)*a$ 
(54 TO 64)+a$(33): PRINT . AT 5,0 
ja$: IF a$(33+b) <> " " THEN GO 
SUB 8023: GO TO n: IF ATTR (a+ 
1,b)=56 THEN GO SUB 8022: GO TO 
n 

1240 RETURN 

1300 IF RND 5.45 THEN LET a$-a 

$(2 TO 32)*a$(1)*a$(34 TO 64)+as 
(33): GO TO 1320 

1310 LET a$2a$(32)*a$(1 TO 31)+a 
$(64)*a$(33 TO 62) 

1320 PRINT AT 5,0;a$: 
b) <> " " THEN. GO TO n 
1340 RETURN 

1400 IF RND >.5 THEN IF z=0 TH 


IF а$ (55+ 


EN LET у=7: LET j= INT ( RND #2 
7)*3: IF ΑΤΤΗ (7,j)-61 THEN LE 
T z=1 


1410 IF z-1 THEN PRINT АТ v,j: 

” "3 AT v*1,j5; INK S; PAPER 7;"K 

"s LET v=v+1: IF v=9 THEN PRINT 
AT 9,j:" ": LET 2=0 

1420 PRINT AT a,b;" ": IF ΑΤΤΗ 
(a+1,b)=56 THEN GO TO n 

1430 RETURN 

1500 GO SUB. 1500: RETURN 

1600 PRINT АТ a,b;" ": IF 
(a+1,b)=56 THEN GO TO n 

1620 RETURN 

1700 GO SUB 1400: 

ETURN 

1800 GO SUB 1700: RETURN 

1900 GO SUB 1300: GO SUB 1600: R 

ETURN 

2000 PRINT АТ a,b;" "1: IF ATIR 
(a*1,b)z56 THEN GO TO n 

2020 IF b >= 25 THEN GO TO 2500 


ATTR 


GO SUB 1200: R 


2030 RETURN 


2500 PRINT AT a,b;"QP": RESTORE 


5 contains Š different 2 hazards 


‚ 9900: FOR.f=1 TO 32: READ a,b: 
BEEP a/S,b: NEXT f: LET sc=sc+50 
O: PRINT AT 10, 12; INK О; FLASH 
1; "BONUS -500"; AT 8,12; INK 2; 
“WELLDONE" 
2540 FOR 4-1 TO 20: BEEP .01,#+5 
О: ВЕЕР .01,##2: NEXT f 
2550 LET a=6: LET b=0: LET s=1: 
LET 151411 GO TO 20 
3000 PRINT AT a +b; 
ET 1=1-1: 
ο 
3010 RESTORE 9900: FOR £-1 TO 61 
READ a,b: BEEP a/2,b: NEXT f 
3020 LET a-6: LET b=0: GO TO 25 


INK 2;"A": L 
IF 1=O THEN GO TO 380 


| S800 RESTORE 9900: FOR 451 TO 4: 
READ a,b: BEEP a/1.5,b: NEXT f: 
PRINT АТ 12,11; INK 7; FLASH 1 

3 BRIGHT 1; PAPER 0;"GAME OVER" 


$810 IF sc>hi THEN LET hi-sc: P 
INT AT 9,0; INK 5; PAPER O; BR 

IGHT 1;n$; АТ 9,8;"A NEW HIGH SC 

ORE": FOR f-20 TO 40: BEEP .01,# 

: BEEP .Ο1, 6-20: NEXT + 

3820 RESTORE 9910: FOR #=1 TO 25 

: READ a,b: BEEP a/4,b: NEXT f 


3830 FOR 4-4 TO 7: PRINT AT 21, 


e MÀ 


ГОЗ INK f; PAPER О; 


BRIGHT 11" P 
! RESS ANY KEY FOR ANOTHER GO ": 


!PAUSE 10: IF “INKEYS ="" THEN N 
$ext €: GO το 3830 Ü 
: 3B40 GO TO 10 
$4000 RESTORE 9950: 
{ READ x,y,m: PRINT AT a,bg" ": 
ÍLET а=а+у: LET b=b+m: PRINT AT 
а,Ь; "А": ВЕЕР .001,x: NEXT f 
1/4020 RETURN 

: 5000 GO SUB 4000: PRINT ат a,b; 
Fike ": LET b= INT b-i: IF b>21 THE 
"N IF а <= 6 THEN GO TO 50 
‘5005 LET a-6: GO TO 3000 

8010 DIM a$(224): FOR f=] TO 15: 


LET c= INT ( RND *190)*1: LET a 
$(c)= CHR$ ( INT ( RND *2)*148): 
NEXT f 


8011 PRINT AT 7,0; PAPER 7; INK 
S: ERKEKKKKERKKEKKKKKKEREREKEKK 
KKKK",,: RETURN 
BO20 GO SUB 8023: 
8022 RETURN 


GO SUB 8011 


8023 DIM a$(64): LET ass" 
ім м ім 
мо мо NO": RETURN 
8030 LET as=" GH 
IJ 


": GO SUB 8011: RETURN 


8040 LET 1510: LET weO: LET z=0: 
GO SUB 8011: RETURN 
8050 GO SUB 8020: LET a$(20 TO 2 


1)="GH": LET εί το S3)s"IJ": 
RETURN 
8061 PRINT AT 7,0; INK 5; "КККК" 


; AT 7,55; "ККК": AT 25 9;"K"; “AT? 


AY 


FOR f=1 TO ó: 


112; "K" AT 7, ο. ΑΤ 7, 

22; “EKKK "3 AT 7,27 "Κ "1 RETU 
RN 

8070 GO SUB 8061 

8072 DIM a$(64): LET a$(10 TO 11 
="LM": LET a$(42 TO 45)5"Νῃ" 
8073 RETURN 


8081 GO SUB 8020: PRINT AT 7,0; 
n$: GO SUB 8061: RETURN 
8090 BO SUB B020: PRINT AT 7,0; 
n$: GO SUB 8061: RETURN 
8100 PRINT АТ 7,0; INK 5;"KKKKK 
"; АТ 7,7; "ККК": AT 7,12; "K" AT 


7,14;"KK"; AT 7,17; "KKK"; ΑΤ 7, 
22; "KKKKKKKKKK": RETURN 

9000 RESTORE 9920: FOR f- USR "a 
" TO USR “p"+7: READ a: POKE f, 
a: NEXT f: RETURN 
9051 LET Ь$%="АВ": 
=6: LET Ь=0: 
LET t-100: 


LET 1-5: LET a 
LET sc-0: LET s=1: 
LET ns=" 

": RETURN 
9510 FOR #=12 TO 21: PRINT AT £ 
τος PAPER О;п%: NEXT +: RESTORE 
9950: FOR f-1 TO 5: READ xy, x$: 
PRINT АТ х,у; INK 6; BRIGHT 1; 
PAFER O;x: NEXT f: FOR f-1 TO 
S: READ x,y,q: PRINT AT Mays BR 
IGHT 1; FAPER O; INK 5;q: NEXT f 
z> RETURN 


Arcelie 


9900 DATA 1,5,1,5,1,2,.5,4, 
2,0,1,7,.5,7,.5,2,.5,2,.5,4,. 


12475240, 1,7::5,7,.5,5,-5,2,. 


N 


A 
U bhN“ 


9910 DATA E ος SIN SIS 
5,14,.25,16,.25,14,.25,12,1.5,11 
$25,12,.125,14,.125,16,.125,14,. 
125,12,.125,11,.125,12,.125,11,. 
125,9,2,7,1,9,1,11,2,12,1,11,1,1 
2,3,14 
9920 DATA 28,28,8,127,28,28,20,2 
0,28,28,8,28,62,92,20,24,114,116 
»40,112,112,112,114,62,78,46,20, 
14,14, 14,78, 124,48,124, 190, 255,2 
51,118,126 160,32, 12,12,0,0,102,3 


9, 3 


9950 DATA 3,7,13,15,6,3,1,15,192 
:224,176,240,96,192,128, 240, 31,5 
5,99,51, 19, 6,12,24, 248, 23%, 198, 2 
04,200, 96 ,48,24 

9940 DATA 0,255,255,187,179 319,1 
31,7,25,55,111,127,255 «255, 254. 2 
24,248, 252,254,254,63,223, 221,25 
4,191,191,127,127,63,31,7,125,25 
1,251,245,206, 50,248, 224 , 40, 44 ,4 
6,40,32,32,32,32 

9950 DATA 16,-1,0,18, 
:22,0,0,22,1,9,20,1,0 
9960 DATA 13,3,"LIVES",15,20,"LE 
VEL",15,3, "BONUS", 17, S,"SCORE",1 
9,5,"HI-SCORE",12,12 o1,15,12,t,1 


-1,0,20,0,q 


7,12,8c,19,12,hi,16,22/5 
9970 DATA 245,-93,-34, «61-21 p28 
7,-7,-70,7,-70,21,-57,34,-61,45, 


-53,34,-61,21,-67,7, 
21,-67,-34,-61,200 


-70,-7,-70,- 


Explorer — 


τα 


ае gs e 


puc 


Ў This is the challenge in Dog Fight, written for the: 

"Spectrum or Spectrum. Plus by Neil Bates of Coventry; ^ 
; Underlined letters are those to be entered in graph: pa 
LA) moder 


1 POKE 23676,250: ΡΟΚΕ 25475, 
$. 
2 GO SUB 500 | 
5 GO 5υε 2000 i 
10 DIM y(2): DIM x(2): LET sc= 
O: DIM m(2): LET a$-"01224567": 
LET bsé-as: LET x(1)-5: LET y(1)= 
5: LET x(2)=15: LET y(2)-10: LET 
fz0: LET а=5: LET b-5: LET c=10 
: LET d=15: LET t=IOO 
5ο PAPER O: BORDER ο: INK 7: C 
LS : FOR f=3 ΤΟ 13: PRINT АТ f, 
3; PAPER $i" 
": NEXT f 
40 PRINT AT 21,2; INK 4: BRIG 
HT 1;" SCORE = ";sc; TAB 20;"TIM 
E = "utto c 
SO IF INKEYS ="8" THEN LET a 
$-as$(2 TO )*a$(1) ς 
60 IF INKEYS ="5" THEN LET a 
$-a$(B)*a$( ΤΟ 7) 
70 LET #=1: GO SUB 200+(( VAL 
a$(1))*10): GO SUB σοο 
Bu IF x(1)>x(2) THEN LET b$-b 
$(2 TO )*b$(1): GO TO 100 
90 IF x(1)4x(2) THEN LET b$-b 
$(B)*bs( TO 7) 
100 LET f-2: GO SUB 200+({ VAL 
bS(1))#10): GO SUB 300 
110 PRINT АТ a,b; PAPER 5;"” " 
3 AT a*1,b;" “3 AT c,d;" “3 AT 
c*1,d;" "1 POKE 23475,m(2)1 PR 
INT AT y(2),x(2); INK 2; PAPER 
S; "AB"; AT y(2) *1,x (22 ; "CD": РОК 
E 23675,m(1): PRINT AT Y(1),x(1 
); INK 4; PAPER 5; "АВ"; AT. у(1) + 
1,x (1); "CD": LET a=y(1): LET bex| 
(1): LET czy(2) : LET dex (2) 
120 IF £22 AND RND 4.1 THEN 6 
О SUB 600+( VAL b$(1))910 ; 
130 IF INKEYS -"O" THEN LET'& 
=1: GO SUB 600*(( VAL a$(1)) 310) 
140 LET t-t-1: PRINT AT 21,27; 
INK 4; BRIGHT 1;t;" “1 IF t <= 
O THEN GO TO 1030 ; 
150 GO TO 50 be 
200 LET у(#) =у(#)-1: LET m()=0 
: RETURN 1 
210 LET y (4) zy (£)-1: LET x(£)*x 
(£)*1: LET m(#)=32: RETURN 
220 LET х(#) =х (#)+1: LET mif)=6 
4: RETURN ' 
230 LET x(f)=x(#)+1: LET у(#) =у 
(£$)*1: LET m(f)=96: RETURN 
240 LET y(f)=y(f)+1: LET m(f)=1 
28: RETURN 
250 LET y(f)=y(f)+1: LET x(f)=x 
(£171: LET m(#)=160: RETURN 
260 LET x(£)2x(£)-1: LET т(#)=1 
92: RETURN 
270 LET x(#)=x(#)-1: LET y(f)=y 
(#)-1: LET m(#)=224: RETURN 
300 IF yl#)>12 THEN LET y(#)'=3 


310 IF у(#)<5 THEN LET y(#)=12 
320 IF x(#)<3 THEN LET x(#)=27 
550 IF x(4)227 THEN LET x(#)=3 
340 RETURN 

500 FOR {π64000 TO 64255: READ 


a: POKE f,a: NEXT f: RETURN 
510 DATA 0,0,1,127,255,225,127, 


ко. down. the red t baron. bolora he can | hit yo 


үз 


zx 
аат аА Ate 


meee š: 


Mus 


u. P ταὶ < 


11,0,0,128,254,255,255,254,208,7 
33,3,1,1,15,15,1,224,192,192,128 
:128,240,240,128 

520 DATA 12,20,31,15,7,7,5,7,0, 
0,0,128,224,240,240,248,7,79,239 
,125,55,124,45,4,252,190,275, 15, 
6,0,0,0 

‘530 DATA 0,0,0,0,96,97,103,255, 
48,120,120,120,248,120,248,222, 
55,103,97,95,0,0,0,0,252,248,120 
1248,120,120,120,48 

540 DATA 4,46,124,56,126,239,79 
:7,0,0,0,6,15,255,190,252,7,5,7, 
7,15,31,20,12,248,240,240,224,12 
8,0,0,0 

550 DATA 1,15,15,1,1,3,3,7,128, 
240,240,128,128,192,192,224,11,1 
27,255,255,127,1,0,0, 208, 254, 255 
,255,254,128,0,0 

550 рата о, °, 0,96,240, eu 25,6 
3,32,116,62,28,126,247,242,224,3 
1,15,15,7,1,0,0 ,0,224, 0, 224,22 
4,240, 248,120,48 

570 DATA 12,30,30,30,31,30,31,4 
3,0,0,0,0, Ж 134 ,220,255,63,31,30 
$315 зо, 30,20, 12,255,230,124,5,0, 
0,0,0 

580 DATA 0,0,0,1,7,15,15,21,48, 
120,248,240, 224,224, 150,224, 63,1 
25,255,240, 95, 0,0,0,224,242,247, 
126,28,62 116,52 

600 PLOT x(f)*8*8,1756-y (f) 8: D 
RAW INK 0;0,23: BEEP .001,40: G 
D SUB 1000: PLOT OVER 1;x(f£)*8* 
8,176-y(£)*8: DRAW OVER 130,23: 
BEEP .001,60: RETURN 

610 PLOT x (#)#*8+16,176-y(#) *B: 
DRAW INK 0;23,23: BEEP .001,40: 
GO SUB 1000: FLOT OVER 1;х (ғ) ж 
8+16,174-y(#)*8: DRAW OVER 1:22 
‚25: ВЕЕР .001,60: RETURN 

620 PLOT x (£) #8416, 168-y C£) #8: 
DRAW INK O;22,0: BEEF .001,40: 
GO SUB 1000: FLOT OVER 13x (#) *В 
+16,168-y(#)*8: DRAW OVER 1:33, 
О: ВЕЕР .901,60: RETURN 

630 FLOT x(f)*B*16,160-y CF) *B: 
DRAW INK 0;22,-23: ВЕЕР .001,40 
z GO SUB 1000: PLOT. OVER 1;x(f) 
*B*16,160-y (£)*8: DRAW OVER 1:2 
3,-23: BEEF «001,60: RETURN 

640 PLOT x(f)*B*B,160-y(f)*B: D 
RAW INK 0;0,-22: ВЕЕР .001,40: 
GO SUB 1000: PLOT OVER 1;x(f)*8 
*8,160-y(f)*8: DRAW OVER 1;0,-2 
Z: BEEF . 001,60: RETURN 

650 FLOT x(#)*B8,160-y(f)*B: DKA 
W INK 03-23,-23: BEEP .001,40: 
GO SUB 1000: PLOT OVER 1;x(£4)*8 
$160-y(£)*B: DRAW OVER 1;-23,-2 
3: ВЕЕР «001,60: RETURN 

660 PLOT x(f$)*B,168-y (£) *B: DRA 
W ІМК O;-22,0: ВЕЕР .001,40: GD 
SUB 1000: FLOT OVER і;х (#) *8,1 
68-y(#) #8: DRAW OVER 1:-22,0: R 
EEF .001,60: RETURN 

670 PLOT x(*)*8,1756-y (f£) *B: DRA 
W ІМК 0;-23,23: BEEF .001,40: G 
D SUB 1000: ELOT OVER 13x (#) #8, 
176-y (£) *8: DRAUf" OVER 1:-22,22: 
ВЕЕР .001,60: RETURN 

1000 IF #=1 THEN IF ΑΤΤΑ (y(2) 
ax (2))+ ATTR (y OD) ,x (2) +1) + ATTR 

(y (2) *1,x (20) + ATTR (y(2)+1,x (2 


168 THEN GO TO 1090 
ATIR (y(1) 
үн (1)+1)+ ATTR 
(y(1)+1,# (1))+ ATTR (у(1)+1,х (1 


)*1) <> 
1010 IF f-2 THEN IF 
$XC1))* ATTR (y(1) 
)*1) <> 176 THEN GO TO 1020 
1020 RETURN 
1030 FOR g=0 TO 5: FOR f=0 ID 25 
5 STEP 32: BEEF «ος λα ας FRIRT 
AT у(1),м(1): FAFER ὃς INK g:" 
AB"; AT y(1)*1,x(1)5 "CD": BEEF . 
001,60: FOKE 22675,f: NEXT f: NE 
XT g 
1040 PRINT AT 5,4: 
FER 5; INK 2;" 


BRIGHT 1: FA 
GAME OVER 
1050 FOR #=0 TO 50 STEP 5: BEEF 

«Οἱ 4: NEXT f 

1060 FOR 451 TO 4: BEEF «01570: 
FAUSE S: BEEF .01,20: FAUSE S: N 
EXT 4 

1070 PRINT 
EY": PAUSE 1 
1080 PAUSE O: GO TO 10 


АТ 7,10; "PRESS ANY К 


1090 BEEP .01,60: PRINT AT y(2) 
»x(2)3 PAPER S$" "i AT у(2) +1,х 
(2);" ": LET sc=sc+t: FRINT AT: 


21,11; BRIGHT 1; INK 4;sc: LET 
t=100: LET у(2) =5: LET »(2)=23: 
RETURN 
3000 PAPER O: BORDER ο: CLS : PR 
INT AT 2,8; INK 6; FAFER O; BRI 
GHT 1;"D 0G FIGHT" 

3010 LET n$-" IT IS THE 1st WOR 


LD WAR. THE BATTLE FOR THE Sk 
Y WAS BEING WON BY THE GERMAN 
S,AND IN FARTICULAR,BY THE 
RED BARON. YOUR TASK IS TO S 
ΗΟΟΤ HIM DOWN. 

КЕҮЅ:5 LEFT ,8 RI 
GHT ‚О FIRE" 
3015 LET ns=n#+" YOU LOSE А 


LIFE IF YOU GET 
R TIME RUNS OUT 


SHOT OR YOU 


YOU CONTROL 
THE GREEN PLANE. GOO 
D LUCK Кы 
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р=0: FOR f=1 TO LEN πε: BEEP . 
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